1. Customizar apariencia
   • HTML
   • CSS
2. Extensiones a Shiny (mediante paquetes)
3. Compartir las apps por internet
   • local
   • global
4. MapEs (una app desarrollada por FISABIO - DG Salud Pública)

tags: h1() - h6()

Tamaño del texto introducido

ui <- fluidPage(
  h1("Tamaño 1"),
  h2("Tamaño 2"),
  h3("Tamaño 3"),
  h4("Tamaño 4"),
  h5("Tamaño 5"),
  h6("Tamaño 6")
)

server <- function(input, output) {}

shinyApp(ui, server)

tags: hr()

Línea horizontal

ui <- fluidPage(
  h3("texto"),
  hr(),
  h3("texto")
)

server <- function(input, output) {}

shinyApp(ui, server)

tags: "Texto"

Texto normal. El texto plano sin modificadores no necesita tags.

ui <- fluidPage(
  "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed eiusmod tempor incidunt ut labore et dolore magna aliqua."
)

server <- function(input, output) {}

shinyApp(ui, server)

tags: br()

Salto de línea

ui <- fluidPage(
  "Texto 1",
  br(),
  "Texto 2"
)

server <- function(input, output) {}

shinyApp(ui, server)

tags: p()

Párrafo

ui <- fluidPage(
  p("Párrafo 1"),
  p("Párrafo 2")
)

server <- function(input, output) {}

shinyApp(ui, server)

tags: em()

Letra en itálica/cursiva

ui <- fluidPage(
  em("itálica")
)

server <- function(input, output) {}

shinyApp(ui, server)

tags: strong()

Letra en negrita

ui <- fluidPage(
  strong("negrita")
)

server <- function(input, output) {}

shinyApp(ui, server)

tags: code()

Texto monoespaciado. Típicamente se emplea este comando para introducir código

ui <- fluidPage(
  code("código")
)

server <- function(input, output) {}

shinyApp(ui, server)

Los tags se pueden anidar unos dentro de otros.

ui <- fluidPage(
  p("Lorem ipsum dolor sit amet, ", strong("consectetur"), " adipiscing elit, ", em("sed eiusmod tempor incidunt ut labore et dolore magna aliqua."))
)

server <- function(input, output) {}

shinyApp(ui, server)

Las hojas de estilo en cascada (CSS) son un marco para personalizar la apariencia de elementos en una página web.

ui <- fluidPage(
  theme = "bootstrap.css",
  sidebarLayout(
    sidebarPanel(),
    mainPanel()
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

ui <- fluidPage(
  includeCSS("bootstrap.css"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel()
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

• Extensiones de formato

  • flexdashboard: Tableros interactivos fáciles para R (RMarkdown)
  • shinythemes: Temas CSS listos para usar con Shiny
  • shinydashboard: Tableros para Shiny
  • shinyjqui: Interacciones y efectos de animación para Shiny

• Extensiones para cálculos/gráficos interactivos

  • htmlwidgets: Un marco para embeber visualizaciones de JavaScript en R

87 widgets registrados actualmente (selección):

• leaflet: Mapeado geoespacial interactivo
• plotly: Creación de gráficos interactivos
• dygraphs: Graficado de series temporales
• networkD3: Visualización gráfica de datos con D3
• DataTables: Visualización de datos tabulares
• d3heatmap: Mapas de calor
• DiagrammeR: Grafos y diagramas de flujo
• rglwidget: Renderiza escenas creadas con rgl

• Llamadas en Shiny: renderLeaflet() y leafletOutput()
• Tiles

library(leaflet)
leaflet() %>% addTiles() %>% addMarkers(lng=-0.3531, lat=39.4815, popup="FISABIO")

• Llamadas en Shiny: renderPlotly() y plotlyOutput()

library(ggplot2, plotly)
p <- ggplot(data = diamonds, aes(x = cut, fill = clarity)) + geom_bar(position = "dodge")
ggplotly(p)

• Llamadas en Shiny: renderDygraph() y dygraphOutput()

library(dygraphs)
lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)
dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyHighlight(highlightCircleSize = 5, 
              highlightSeriesBackgroundAlpha = 0.2,
              hideOnMouseOut = FALSE)

• Llamadas en Shiny: renderForceNetwork() y forceNetworkOutput()

library(networkD3)
data(MisLinks, MisNodes)
forceNetwork(Links = MisLinks, Nodes = MisNodes, Source = "source", Target = "target", Value = "value", NodeID = "name", Group = "group", opacity = 0.4)

• Llamadas en Shiny: renderDataTable() y dataTableOutput()

DT::datatable(iris, options = list(pageLength = 3, dom = "pt", language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Spanish.json')), rownames = FALSE, escape = FALSE)

• Llamadas en Shiny: renderD3heatmap() y d3heatmapOutput()

library(d3heatmap)
d3heatmap(mtcars, scale = "column", colors = "Spectral")

de forma local, con alguien que tiene R en su ordenador.

• runUrl(), runGitHub() o runGist()

de forma global, con todo el mundo (sin necesidad de tener R).

• shinyapps.io
  
• Shiny Server
  
• RStudio Connect

• Comprimir la carpeta de la app en un zip y enlazar el archivo en una web

runUrl( "<link a la web>")

• Alojar tu app en tu repositorio libre de GitHub

runGitHub( "<nombre de tu repositorio>", "<tu nombre de usuario>") 

• Alojar tu app en tu repositorio libre de GitHub, manteniendo tu anonimato con Gist

• Subir los archivos a Gist

1. Gist nos dará una Url
2. Los números finales de la Url son el código gist

runGist("código gist")